home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 December / 2004-12 CHIP.iso / Internet / The Bat! Professional 3.01 / thebat_professional.msi / Data1.cab / thebat.exe / 0 / RCDATA / TADDRWINDOW / TADDRWINDOW.txt
Text File  |  2004-10-12  |  25KB  |  1,031 lines

  1. object AddrWindow: TAddrWindow
  2.   Left = 339
  3.   Top = 263
  4.   Width = 588
  5.   Height = 474
  6.   HelpContext = 10043
  7.   Caption = 'Address Book'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Menu = MainMenu1
  15.   OldCreateOrder = True
  16.   Position = poDefaultPosOnly
  17.   OnActivate = FormActivate
  18.   OnClose = FormClose
  19.   OnCreate = FormCreate
  20.   OnDestroy = FormDestroy
  21.   OnKeyDown = FormKeyDown
  22.   OnShow = FormShow
  23.   PixelsPerInch = 96
  24.   TextHeight = 13
  25.   object sBar: TStatusBar
  26.     Left = 0
  27.     Top = 401
  28.     Width = 580
  29.     Height = 19
  30.     Panels = <>
  31.     SimplePanel = True
  32.   end
  33.   object dsTop: TDock97
  34.     Left = 0
  35.     Top = 0
  36.     Width = 580
  37.     Height = 33
  38.     BoundLines = [blTop]
  39.     object tbSearch: TToolbar97
  40.       Left = 182
  41.       Top = 0
  42.       Caption = 'Search'
  43.       DockedTo = dsTop
  44.       DockPos = 182
  45.       TabOrder = 1
  46.       OnClose = tbSearchClose
  47.       object bSearch: TToolbarButton97
  48.         Left = 0
  49.         Top = 0
  50.         Width = 28
  51.         Height = 28
  52.         Hint = 'Perform search'
  53.         Layout = blGlyphTop
  54.         ParentShowHint = False
  55.         ShowHint = True
  56.         OnClick = bSearchClick
  57.       end
  58.       object ToolbarSep971: TToolbarSep97
  59.         Left = 28
  60.         Top = 0
  61.       end
  62.       object bCancel: TToolbarButton97
  63.         Left = 239
  64.         Top = 0
  65.         Width = 29
  66.         Height = 28
  67.         Hint = 'Cancel current search'
  68.         Enabled = False
  69.         ParentShowHint = False
  70.         ShowHint = True
  71.         OnClick = bCancelClick
  72.       end
  73.       object ToolbarSep973: TToolbarSep97
  74.         Left = 233
  75.         Top = 0
  76.       end
  77.       object eSearch: TEdit97
  78.         Left = 34
  79.         Top = 4
  80.         Width = 199
  81.         Height = 19
  82.         Hint = 'Quick search'
  83.         PopupMenu = pmSearch
  84.         TabOrder = 0
  85.         OnChange = eSearchChange
  86.         OnKeyDown = eSearchKeyDown
  87.       end
  88.     end
  89.     object tbCommon: TToolbar97
  90.       Left = 0
  91.       Top = 0
  92.       Caption = 'Address Book Toolbar'
  93.       DockedTo = dsTop
  94.       DockPos = 0
  95.       HideWhenInactive = False
  96.       PopupMenu = bPopup
  97.       TabOrder = 0
  98.       OnClose = tbCommonClose
  99.       object bNewUser: TToolbarButton97
  100.         Left = 28
  101.         Top = 0
  102.         Width = 28
  103.         Height = 28
  104.         Hint = 'Create a new contact'
  105.         ParentShowHint = False
  106.         ShowHint = True
  107.         OnClick = mNewAddrClick
  108.       end
  109.       object bNewGroup: TToolbarButton97
  110.         Left = 56
  111.         Top = 0
  112.         Width = 28
  113.         Height = 28
  114.         Hint = 'Create a new group'
  115.         ParentShowHint = False
  116.         ShowHint = True
  117.         OnClick = mNewGroupClick
  118.       end
  119.       object bEdit: TToolbarButton97
  120.         Left = 84
  121.         Top = 0
  122.         Width = 28
  123.         Height = 28
  124.         Hint = 'Edit properties'
  125.         ParentShowHint = False
  126.         ShowHint = True
  127.         OnClick = mEditPropsClick
  128.       end
  129.       object bMail: TToolbarButton97
  130.         Left = 0
  131.         Top = 0
  132.         Width = 28
  133.         Height = 28
  134.         Hint = 'Create a message'
  135.         ParentShowHint = False
  136.         ShowHint = True
  137.         OnClick = bMailClick
  138.       end
  139.       object bDelete: TToolbarButton97
  140.         Left = 140
  141.         Top = 0
  142.         Width = 28
  143.         Height = 28
  144.         Hint = 'Delete'
  145.         ParentShowHint = False
  146.         ShowHint = True
  147.         OnClick = mDeleteClick
  148.       end
  149.       object bPrint: TToolbarButton97
  150.         Left = 112
  151.         Top = 0
  152.         Width = 28
  153.         Height = 28
  154.         Hint = 'Print'
  155.         ParentShowHint = False
  156.         ShowHint = True
  157.         OnClick = bPrintClick
  158.       end
  159.     end
  160.   end
  161.   object dsBottom: TDock97
  162.     Left = 0
  163.     Top = 392
  164.     Width = 580
  165.     Height = 9
  166.     Position = dpBottom
  167.   end
  168.   object bbCancel: TButton
  169.     Left = 0
  170.     Top = 0
  171.     Width = 0
  172.     Height = 0
  173.     Cancel = True
  174.     Caption = 'bbCancel'
  175.     TabOrder = 3
  176.     TabStop = False
  177.     OnClick = bbCancelClick
  178.   end
  179.   object pnAligner: TPanel
  180.     Left = 0
  181.     Top = 33
  182.     Width = 580
  183.     Height = 359
  184.     Align = alClient
  185.     BevelOuter = bvNone
  186.     BorderWidth = 2
  187.     TabOrder = 4
  188.     object spContact: TSplitter
  189.       Left = 187
  190.       Top = 2
  191.       Height = 355
  192.       AutoSnap = False
  193.       MinSize = 1
  194.       ResizeStyle = rsUpdate
  195.     end
  196.     object pnTree: TPanel
  197.       Tag = 11
  198.       Left = 2
  199.       Top = 2
  200.       Width = 185
  201.       Height = 355
  202.       Align = alLeft
  203.       TabOrder = 0
  204.       object lTree: TTreeView
  205.         Left = 1
  206.         Top = 10
  207.         Width = 183
  208.         Height = 344
  209.         Align = alClient
  210.         BorderStyle = bsNone
  211.         HideSelection = False
  212.         Images = lImages
  213.         Indent = 23
  214.         PopupMenu = GridPopup
  215.         TabOrder = 0
  216.         OnChange = lTreeChange
  217.         OnDblClick = mEditPropsClick
  218.         OnDragDrop = lTreeDragDrop
  219.         OnDragOver = lTreeDragOver
  220.         OnEdited = lTreeEdited
  221.         OnEditing = lTreeEditing
  222.         OnKeyDown = gAddrKeyDown
  223.         OnMouseDown = lTreeMouseDown
  224.       end
  225.       object dsTree: TDock97
  226.         Left = 1
  227.         Top = 1
  228.         Width = 183
  229.         Height = 9
  230.       end
  231.     end
  232.     object Book: TNotebook
  233.       Left = 190
  234.       Top = 2
  235.       Width = 388
  236.       Height = 355
  237.       Align = alClient
  238.       TabOrder = 1
  239.       object TPage
  240.         Left = 0
  241.         Top = 0
  242.         Caption = 'Default'
  243.         object pnHolder: TPanel
  244.           Tag = 11
  245.           Left = 0
  246.           Top = 0
  247.           Width = 388
  248.           Height = 355
  249.           Align = alClient
  250.           BevelOuter = bvNone
  251.           BorderWidth = 2
  252.           TabOrder = 0
  253.           object pnHeader: TPanel
  254.             Left = 2
  255.             Top = 2
  256.             Width = 384
  257.             Height = 18
  258.             Align = alTop
  259.             BevelOuter = bvNone
  260.             TabOrder = 0
  261.             object hAddr: THeaderControl
  262.               Left = 0
  263.               Top = 0
  264.               Width = 360
  265.               Height = 18
  266.               Hint = 'nograb'
  267.               Align = alClient
  268.               Sections = <
  269.                 item
  270.                   ImageIndex = -1
  271.                   Text = 'Name'
  272.                   Width = 151
  273.                 end
  274.                 item
  275.                   ImageIndex = -1
  276.                   Text = 'E-mail'
  277.                   Width = 96
  278.                 end
  279.                 item
  280.                   Alignment = taCenter
  281.                   ImageIndex = -1
  282.                   Text = 'Alias'
  283.                   Width = 69
  284.                 end
  285.                 item
  286.                   Alignment = taCenter
  287.                   ImageIndex = -1
  288.                   Text = 'Menu'
  289.                   Width = 38
  290.                 end
  291.                 item
  292.                   ImageIndex = -1
  293.                   Text = 'Phone'
  294.                   Width = 78
  295.                 end>
  296.               OnSectionResize = hAddrSectionResize
  297.               OnMouseDown = hAddrMouseDown
  298.             end
  299.             object pnSpin: TPanel
  300.               Left = 360
  301.               Top = 0
  302.               Width = 24
  303.               Height = 18
  304.               Align = alRight
  305.               TabOrder = 1
  306.               object udAddr: TUpDown
  307.                 Left = 0
  308.                 Top = 0
  309.                 Width = 24
  310.                 Height = 18
  311.                 Min = 1
  312.                 Max = 4
  313.                 Orientation = udHorizontal
  314.                 Position = 1
  315.                 TabOrder = 0
  316.               end
  317.             end
  318.           end
  319.           object gAddr: TAddressBookGrid
  320.             Left = 2
  321.             Top = 20
  322.             Width = 384
  323.             Height = 333
  324.             Align = alClient
  325.             BorderStyle = bsNone
  326.             DefaultRowHeight = 18
  327.             DefaultDrawing = False
  328.             FixedCols = 0
  329.             RowCount = 25
  330.             FixedRows = 0
  331.             GridLineWidth = 0
  332.             Options = [goEditing, goThumbTracking]
  333.             ParentShowHint = False
  334.             PopupMenu = GridPopup
  335.             ShowHint = False
  336.             TabOrder = 1
  337.             OnDblClick = gAddrDblClick
  338.             OnKeyDown = gAddrKeyDown
  339.             OnKeyPress = gAddrKeyPress
  340.             OnMouseDown = gAddrMouseDown
  341.             OnMouseMove = gAddrMouseMove
  342.             OnStartDrag = gAddrStartDrag
  343.             Header = hAddr
  344.             Spin = udAddr
  345.             ReadOnly = False
  346.             ColWidths = (
  347.               151
  348.               96
  349.               69
  350.               38
  351.               78)
  352.           end
  353.         end
  354.       end
  355.       object TPage
  356.         Left = 0
  357.         Top = 0
  358.         Caption = 'DBGrid'
  359.         object pnDBGrid: TPanel
  360.           Left = 0
  361.           Top = 0
  362.           Width = 409
  363.           Height = 311
  364.           Align = alClient
  365.           BevelOuter = bvNone
  366.           TabOrder = 0
  367.           object dbHeader: THeaderControl
  368.             Left = 0
  369.             Top = 0
  370.             Width = 409
  371.             Height = 17
  372.             Sections = <
  373.               item
  374.                 ImageIndex = -1
  375.                 MaxWidth = 24
  376.                 MinWidth = 24
  377.                 Width = 24
  378.               end
  379.               item
  380.                 ImageIndex = -1
  381.                 Width = 200
  382.               end>
  383.           end
  384.           object dbGrid: TADBGrid
  385.             Left = 0
  386.             Top = 17
  387.             Width = 409
  388.             Height = 294
  389.             Align = alClient
  390.             ColCount = 2
  391.             DefaultRowHeight = 18
  392.             DefaultDrawing = False
  393.             FixedCols = 0
  394.             FixedRows = 0
  395.             GridLineWidth = 0
  396.             Options = []
  397.             PopupMenu = dbPopup
  398.             TabOrder = 1
  399.             SortBy = 0
  400.             Header = dbHeader
  401.           end
  402.         end
  403.       end
  404.     end
  405.   end
  406.   object tmSearch: TTimer
  407.     Interval = 100
  408.     OnTimer = tmSearchTimer
  409.     Left = 88
  410.     Top = 81
  411.   end
  412.   object GridPopup: TPopupMenu
  413.     OnPopup = mEditMenuClick
  414.     Left = 268
  415.     Top = 105
  416.     object New1: TMenuItem
  417.       Caption = '&New'
  418.       object mmNewAddr: TMenuItem
  419.         Caption = '&Contact...'
  420.         OnClick = mNewAddrClick
  421.       end
  422.       object mmNewGroup: TMenuItem
  423.         Caption = '&Group...'
  424.         OnClick = mNewGroupClick
  425.       end
  426.       object N9: TMenuItem
  427.         Caption = '-'
  428.       end
  429.       object mmMsg: TMenuItem
  430.         Caption = '&Message'
  431.         ShortCut = 16397
  432.         OnClick = bMailClick
  433.       end
  434.       object mlMsgTo: TMenuItem
  435.         Caption = 'Message &to'
  436.         Visible = False
  437.       end
  438.       object gpmChat: TMenuItem
  439.         Tag = 1
  440.         Caption = 'Chat'
  441.         OnClick = bMailClick
  442.       end
  443.     end
  444.     object N10: TMenuItem
  445.       Caption = '-'
  446.     end
  447.     object mmCopy: TMenuItem
  448.       Caption = '&Copy'
  449.       OnClick = mCopyClick
  450.     end
  451.     object mmCut: TMenuItem
  452.       Caption = 'C&ut'
  453.       OnClick = mCutClick
  454.     end
  455.     object mmPaste: TMenuItem
  456.       Caption = 'P&aste'
  457.       OnClick = mmPasteClick
  458.     end
  459.     object mmDelete: TMenuItem
  460.       Caption = '&Delete'
  461.       OnClick = mDeleteClick
  462.     end
  463.     object N19: TMenuItem
  464.       Caption = '-'
  465.     end
  466.     object Properties1: TMenuItem
  467.       Caption = '&Properties...'
  468.       Default = True
  469.       ShortCut = 32781
  470.       OnClick = mEditPropsClick
  471.     end
  472.   end
  473.   object pmSearch: TPopupMenu
  474.     OnPopup = pmSearchPopup
  475.     Left = 372
  476.     Top = 145
  477.     object msFilter: TMenuItem
  478.       Caption = '&Filter'
  479.       Default = True
  480.       ShortCut = 13
  481.       OnClick = msFilterClick
  482.     end
  483.     object msFilterColumn: TMenuItem
  484.       Caption = 'Filter &Column'
  485.       ShortCut = 8205
  486.       OnClick = msFilterColumnClick
  487.     end
  488.     object msFindNext: TMenuItem
  489.       Caption = 'Find &Next'
  490.       ShortCut = 16397
  491.       OnClick = msFindPrevClick
  492.     end
  493.     object msFindPrev: TMenuItem
  494.       Tag = 1
  495.       Caption = 'Find &Previous'
  496.       ShortCut = 24589
  497.       OnClick = msFindPrevClick
  498.     end
  499.     object bCancelFilter: TMenuItem
  500.       Caption = 'Cancel Filtering/&Refresh'
  501.       ShortCut = 27
  502.       OnClick = bCancelFilterClick
  503.     end
  504.     object N11: TMenuItem
  505.       Caption = '-'
  506.     end
  507.     object msUndo: TMenuItem
  508.       Caption = '&Undo'
  509.       OnClick = msUndoClick
  510.     end
  511.     object N13: TMenuItem
  512.       Caption = '-'
  513.     end
  514.     object msCut: TMenuItem
  515.       Caption = 'C&ut'
  516.       ShortCut = 16472
  517.       OnClick = msCutClick
  518.     end
  519.     object msCopy: TMenuItem
  520.       Caption = 'C&opy'
  521.       ShortCut = 16451
  522.       OnClick = msCopyClick
  523.     end
  524.     object msPaste: TMenuItem
  525.       Caption = '&Paste'
  526.       ShortCut = 16470
  527.       OnClick = msPasteClick
  528.     end
  529.     object N12: TMenuItem
  530.       Caption = '-'
  531.     end
  532.     object msSelectAll: TMenuItem
  533.       Caption = 'Select all'
  534.       OnClick = msSelectAllClick
  535.     end
  536.   end
  537.   object LDAP1: TLDAPClient
  538.     AutoBind = True
  539.     Server = 'mail.ritlabs.com'
  540.     User = 'cn=Directory Manager'
  541.     Password = 'casper88'
  542.     SearchDerefAliases = ldaNever
  543.     SearchScope = lssSingleLevel
  544.     SearchSizeLimit = 200
  545.     SearchTimeLimit = 0
  546.     Port = 389
  547.     Authentication = laNone
  548.     OnConnectFail = LDAP1ConnectFail
  549.     OnBind = LDAP1Bind
  550.     OnBindFail = LDAP1BindFail
  551.     OnFound = LDAP1Found
  552.     OnSearchDone = LDAP1SearchDone
  553.     Left = 128
  554.     Top = 216
  555.   end
  556.   object tmLdapSearch: TTimer
  557.     Enabled = False
  558.     Interval = 2000
  559.     OnTimer = tmLdapSearchTimer
  560.     Left = 96
  561.     Top = 208
  562.   end
  563.   object bPopup: TPopupMenu
  564.     OnPopup = bPopupPopup
  565.     Left = 236
  566.     Top = 224
  567.     object m_Undo: TMenuItem
  568.       Caption = '&Undo'
  569.       OnClick = m_UndoClick
  570.     end
  571.     object m_Sep1: TMenuItem
  572.       Caption = '-'
  573.     end
  574.     object m_Copy: TMenuItem
  575.       Caption = '&Copy'
  576.       OnClick = m_CopyClick
  577.     end
  578.     object m_Cut: TMenuItem
  579.       Caption = 'C&ut'
  580.       OnClick = m_CutClick
  581.     end
  582.     object m_Paste: TMenuItem
  583.       Caption = '&Paste'
  584.       OnClick = m_PasteClick
  585.     end
  586.     object m_SelectAll: TMenuItem
  587.       Caption = '&Select all'
  588.       OnClick = m_SelectAllClick
  589.     end
  590.     object m_FavSep: TMenuItem
  591.       Caption = '-'
  592.     end
  593.   end
  594.   object lImages: TImageList
  595.     Height = 20
  596.     Width = 20
  597.     Left = 252
  598.     Top = 144
  599.   end
  600.   object ImageList1: TImageList
  601.     Height = 20
  602.     Width = 20
  603.     Left = 284
  604.     Top = 144
  605.   end
  606.   object dbPopup: TPopupMenu
  607.     OnPopup = mEditMenuClick
  608.     Left = 352
  609.     Top = 97
  610.     object MenuItem1: TMenuItem
  611.       Caption = '&New'
  612.       Default = True
  613.       object MenuItem2: TMenuItem
  614.         Caption = '&Contact...'
  615.         OnClick = mNewAddrClick
  616.       end
  617.       object MenuItem4: TMenuItem
  618.         Caption = '-'
  619.       end
  620.       object dbMsg: TMenuItem
  621.         Caption = '&Message'
  622.         Default = True
  623.         ShortCut = 16397
  624.         OnClick = bMailClick
  625.       end
  626.     end
  627.     object MenuItem6: TMenuItem
  628.       Caption = '-'
  629.     end
  630.     object dbCopy: TMenuItem
  631.       Caption = '&Copy'
  632.       OnClick = mCopyClick
  633.     end
  634.     object dbCut: TMenuItem
  635.       Caption = 'C&ut'
  636.       OnClick = mCutClick
  637.     end
  638.     object dbPaste: TMenuItem
  639.       Caption = 'P&aste'
  640.       OnClick = mmPasteClick
  641.     end
  642.     object dbDelete: TMenuItem
  643.       Caption = '&Delete'
  644.       ShortCut = 46
  645.       OnClick = mDeleteClick
  646.     end
  647.     object MenuItem11: TMenuItem
  648.       Caption = '-'
  649.     end
  650.     object dbProps: TMenuItem
  651.       Caption = '&Properties...'
  652.       ShortCut = 32781
  653.       OnClick = mEditPropsClick
  654.     end
  655.   end
  656.   object MainMenu1: TMainMenu
  657.     Left = 200
  658.     Top = 72
  659.     object mFile: TMenuItem
  660.       Caption = '&File'
  661.       OnClick = mFileClick
  662.       object mNewMsg: TMenuItem
  663.         Caption = '&New message'
  664.         OnClick = bMailClick
  665.       end
  666.       object mMsgTo: TMenuItem
  667.         Caption = 'Ne&w message to'
  668.         Visible = False
  669.       end
  670.       object mmChat: TMenuItem
  671.         Tag = 1
  672.         Caption = 'New chat'
  673.         OnClick = bMailClick
  674.       end
  675.       object mNewQT: TMenuItem
  676.         Caption = 'New message using &template'
  677.         Enabled = False
  678.       end
  679.       object mMassMail: TMenuItem
  680.         Tag = 1
  681.         Caption = '&Mass mailing using template'
  682.         Enabled = False
  683.       end
  684.       object mNewAbk: TMenuItem
  685.         Caption = 'New &Address Book...'
  686.         OnClick = mNewAbkClick
  687.       end
  688.       object mOpen: TMenuItem
  689.         Caption = '&Open address book...'
  690.         ShortCut = 16463
  691.         OnClick = mOpenClick
  692.       end
  693.       object mmImport: TMenuItem
  694.         Caption = '&Import from'
  695.         OnClick = mmImportClick
  696.         object mImportLDIF: TMenuItem
  697.           Tag = 1
  698.           Caption = '&LDIF file'
  699.           OnClick = mImportFile
  700.         end
  701.         object mImportVCF: TMenuItem
  702.           Tag = 8
  703.           Caption = '&Business Card (vCard)'
  704.           OnClick = mImportFile
  705.         end
  706.         object mImportAddressList: TMenuItem
  707.           Tag = 5
  708.           Caption = '&Address List (plain text)'
  709.           OnClick = mImportFile
  710.         end
  711.         object mImportComma: TMenuItem
  712.           Tag = 2
  713.           Caption = '&Comma-separated (plain text)'
  714.           OnClick = mImportFile
  715.         end
  716.         object mImportTab: TMenuItem
  717.           Tag = 3
  718.           Caption = '&Tab-delimited (plain text)'
  719.           OnClick = mImportFile
  720.         end
  721.         object mImportINI: TMenuItem
  722.           Tag = 4
  723.           Caption = '&INI file'
  724.           OnClick = mImportFile
  725.         end
  726.         object N17: TMenuItem
  727.           Caption = '-'
  728.         end
  729.         object mImportBatNew: TMenuItem
  730.           Tag = 10
  731.           Caption = '&The Bat! Address Book'
  732.           OnClick = mImportFile
  733.         end
  734.         object mImportBat: TMenuItem
  735.           Tag = 6
  736.           Caption = 'The Bat! Address Book (old v1.0-format)'
  737.           OnClick = mImportFile
  738.         end
  739.         object mImportEudora: TMenuItem
  740.           Tag = 7
  741.           Caption = '&Eudora Address Book'
  742.           OnClick = mImportFile
  743.         end
  744.         object mImportTag: TMenuItem
  745.           Tag = 9
  746.           Caption = '&Pegasus Tag File'
  747.           OnClick = mImportFile
  748.         end
  749.         object mImportOutlook: TMenuItem
  750.           Caption = 'Microsoft &Outlook Contacts'
  751.           OnClick = mImportOutlookClick
  752.         end
  753.         object mImportOutlookExpress: TMenuItem
  754.           Caption = 'Outlook Express (&Windows Address Book)'
  755.           OnClick = mImportOutlookExpressClick
  756.         end
  757.       end
  758.       object mmExport: TMenuItem
  759.         Caption = '&Export to'
  760.         object mExportLDIF: TMenuItem
  761.           Tag = 1
  762.           Caption = '&LDIF file'
  763.           OnClick = mExportLDIFClick
  764.         end
  765.         object mExportVCF: TMenuItem
  766.           Tag = 6
  767.           Caption = '&Business card (vCard)'
  768.           OnClick = mExportLDIFClick
  769.         end
  770.         object mExportAddressList: TMenuItem
  771.           Tag = 5
  772.           Caption = '&Address List (Plain text)'
  773.           OnClick = mExportLDIFClick
  774.         end
  775.         object mExportCSV: TMenuItem
  776.           Tag = 2
  777.           Caption = '&Comma-separated (Plain text)'
  778.           OnClick = mExportLDIFClick
  779.         end
  780.         object mExportTSV: TMenuItem
  781.           Tag = 3
  782.           Caption = '&Tab-delimited (Plain text)'
  783.           OnClick = mExportLDIFClick
  784.         end
  785.         object mExportINI: TMenuItem
  786.           Tag = 4
  787.           Caption = '&INI file'
  788.           OnClick = mExportLDIFClick
  789.         end
  790.         object N16: TMenuItem
  791.           Caption = '-'
  792.         end
  793.         object mExportSelection: TMenuItem
  794.           Caption = '&Export selection...'
  795.           OnClick = mExportSelectionClick
  796.         end
  797.       end
  798.       object Test1: TMenuItem
  799.         Caption = 'Test'
  800.         ShortCut = 16505
  801.         Visible = False
  802.         OnClick = Test1Click
  803.       end
  804.       object mRecover: TMenuItem
  805.         Caption = 'Recover'
  806.         ShortCut = 57426
  807.         Visible = False
  808.         OnClick = mRecoverClick
  809.       end
  810.       object mProfileSep: TMenuItem
  811.         Caption = '-'
  812.       end
  813.       object mSaveProfile: TMenuItem
  814.         Caption = 'Save Address Book Set as...'
  815.         OnClick = mSaveProfileClick
  816.       end
  817.       object mLoadProfile: TMenuItem
  818.         Caption = 'Load Address Book Set...'
  819.         OnClick = mLoadProfileClick
  820.       end
  821.       object N15: TMenuItem
  822.         Caption = '-'
  823.       end
  824.       object mSearch: TMenuItem
  825.         Caption = 'Search...'
  826.         ShortCut = 118
  827.         OnClick = bSearchClick
  828.       end
  829.       object N18: TMenuItem
  830.         Caption = '-'
  831.       end
  832.       object mPrint: TMenuItem
  833.         Caption = '&Print...'
  834.         OnClick = bPrintClick
  835.       end
  836.       object N1: TMenuItem
  837.         Caption = '-'
  838.       end
  839.       object Exit1: TMenuItem
  840.         Caption = 'E&xit'
  841.         OnClick = Exit1Click
  842.       end
  843.     end
  844.     object mEditMenu: TMenuItem
  845.       Caption = '&Edit'
  846.       OnClick = mEditMenuClick
  847.       object mNewAddr: TMenuItem
  848.         Caption = 'New &Contact...'
  849.         ShortCut = 16468
  850.         OnClick = mNewAddrClick
  851.       end
  852.       object mNewGroup: TMenuItem
  853.         Caption = 'New &Group'
  854.         ShortCut = 16455
  855.         OnClick = mNewGroupClick
  856.       end
  857.       object N8: TMenuItem
  858.         Caption = '-'
  859.       end
  860.       object mCut: TMenuItem
  861.         Caption = 'C&ut'
  862.         ShortCut = 16472
  863.         OnClick = mCutClick
  864.       end
  865.       object mCopy: TMenuItem
  866.         Caption = 'C&opy'
  867.         ShortCut = 16451
  868.         OnClick = mCopyClick
  869.       end
  870.       object mPaste: TMenuItem
  871.         Caption = 'P&aste'
  872.         ShortCut = 16470
  873.         OnClick = mmPasteClick
  874.       end
  875.       object mDelete: TMenuItem
  876.         Caption = '&Delete'
  877.         OnClick = mDeleteClick
  878.       end
  879.       object mEditProps: TMenuItem
  880.         Caption = '&Properties...'
  881.         OnClick = mEditPropsClick
  882.       end
  883.       object N6: TMenuItem
  884.         Caption = '-'
  885.       end
  886.       object mSelectAll: TMenuItem
  887.         Caption = '&Select all'
  888.         ShortCut = 16449
  889.         OnClick = mSelectAllClick
  890.       end
  891.     end
  892.     object Tools1: TMenuItem
  893.       Caption = '&View'
  894.       object mvToolbar: TMenuItem
  895.         Caption = '&Toolbar'
  896.         Checked = True
  897.         OnClick = mvToolbarClick
  898.       end
  899.       object mvQSearch: TMenuItem
  900.         Caption = 'Search T&oolbar'
  901.         Checked = True
  902.         OnClick = mvQSearchClick
  903.       end
  904.       object mvCA: TMenuItem
  905.         Caption = 'Certificate databases'
  906.         Checked = True
  907.         OnClick = mvCAClick
  908.       end
  909.       object N14: TMenuItem
  910.         Caption = '-'
  911.       end
  912.       object mvColumns: TMenuItem
  913.         Caption = '&Columns...'
  914.         OnClick = mvColumnsClick
  915.       end
  916.       object mSortBy: TMenuItem
  917.         Caption = '&Sort by'
  918.         OnClick = mSortByClick
  919.         object mSortName: TMenuItem
  920.           Tag = -1
  921.           Caption = '&Name'
  922.           GroupIndex = 10
  923.           RadioItem = True
  924.           OnClick = mSortNameClick
  925.         end
  926.         object mSortFirstName: TMenuItem
  927.           Tag = -2
  928.           Caption = '&First name'
  929.           GroupIndex = 10
  930.           RadioItem = True
  931.           OnClick = mSortNameClick
  932.         end
  933.         object mSortLastName: TMenuItem
  934.           Tag = -3
  935.           Caption = '&Last name'
  936.           GroupIndex = 10
  937.           RadioItem = True
  938.           OnClick = mSortNameClick
  939.         end
  940.         object mSortCompany: TMenuItem
  941.           Tag = 9
  942.           Caption = '&Company'
  943.           GroupIndex = 10
  944.           RadioItem = True
  945.           OnClick = mSortNameClick
  946.         end
  947.         object N4: TMenuItem
  948.           Caption = '-'
  949.           GroupIndex = 10
  950.         end
  951.         object mSortEmail: TMenuItem
  952.           Tag = -100
  953.           Caption = '&E-mail address'
  954.           GroupIndex = 10
  955.           RadioItem = True
  956.           OnClick = mSortNameClick
  957.         end
  958.         object mSortHost: TMenuItem
  959.           Tag = -31
  960.           Caption = '&Host'
  961.           GroupIndex = 10
  962.           RadioItem = True
  963.           OnClick = mSortNameClick
  964.         end
  965.         object N5: TMenuItem
  966.           Caption = '-'
  967.           GroupIndex = 10
  968.         end
  969.         object mSortCity: TMenuItem
  970.           Tag = 1
  971.           Caption = 'C&ity'
  972.           GroupIndex = 10
  973.           RadioItem = True
  974.           OnClick = mSortNameClick
  975.         end
  976.         object mSortState: TMenuItem
  977.           Tag = 2
  978.           Caption = '&State/province'
  979.           GroupIndex = 10
  980.           RadioItem = True
  981.           OnClick = mSortNameClick
  982.         end
  983.         object mSortCountry: TMenuItem
  984.           Tag = 4
  985.           Caption = 'C&ountry'
  986.           GroupIndex = 10
  987.           RadioItem = True
  988.           OnClick = mSortNameClick
  989.         end
  990.         object N3: TMenuItem
  991.           Caption = '-'
  992.           GroupIndex = 10
  993.         end
  994.         object mSortReverse: TMenuItem
  995.           Caption = '&Reverse order'
  996.           GroupIndex = 11
  997.           OnClick = mSortReverseClick
  998.         end
  999.       end
  1000.       object N7: TMenuItem
  1001.         Caption = '-'
  1002.       end
  1003.       object mRefresh: TMenuItem
  1004.         Caption = '&Refresh'
  1005.         ShortCut = 116
  1006.         OnClick = mRefreshClick
  1007.       end
  1008.       object mrNextWindow: TMenuItem
  1009.         Caption = 'Next Window'
  1010.         ShortCut = 119
  1011.         Visible = False
  1012.         OnClick = mrNextWindowClick
  1013.       end
  1014.       object N20: TMenuItem
  1015.         Caption = '-'
  1016.         GroupIndex = 11
  1017.       end
  1018.       object mEditShortcuts: TMenuItem
  1019.         Caption = '&Edit Shortcut Keys'
  1020.         GroupIndex = 11
  1021.         ShortCut = 32891
  1022.         OnClick = mEditShortcutsClick
  1023.       end
  1024.     end
  1025.   end
  1026.   object MenuNavigator: TMenuNavigator
  1027.     Left = 426
  1028.     Top = 235
  1029.   end
  1030. end
  1031.